<!--#include file="news_inc.asp" -->
<!--#include virtual="/common/Cls_Page.asp" -->
<%
	
If Request.ServerVariables ("Request_Method")="POST" Then
	news_type	= Reform("news_type") 
Else
	news_type	= Requery("news_type") 
End If 
If news_type="" Then 
	news_type_name="资讯"
Else
	news_type_name=news_type
End If 
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="pragma" content="no-cache" />
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="Content-Language" content="zh-cn" />
<meta name="robots" content="all" />
<meta name="author" content="963123.com" />
<meta name="Copyright" content="Copyright (c) 2010 963123.com" />
<meta name="Description" content="海南家政信息服务平台" />
<meta name="Keywords" content="<%=news_type_name%>,海南家政网,家政,家教,家庭服务,保洁,保姆,护理,钟点工,海南旅游,海南美食,生活,生活服务" />
<meta http-equiv="X-UA-Compatible" content="IE=EmulateIE7" />
<title><%=news_type_name%>_资讯_海南家政服务请拔963123</title>
<link href="/skin/lafot/picture.css" rel="stylesheet" type="text/css" media="screen" />
</head>
<body>
<!--#include Virtual="/include/head.asp" -->
<!--E:Header-->
<div id="current">
  <div class="m">
    <p class="idata tl">您的当前位置：<a href="/"><strong>首页</strong></a> > <a href="/news/">资讯</a> > <%=news_type_name%></p>
  </div>
</div>
<div id="content">
	<div class="m">
	<%	
    
    Dim Ors		
    Set Ors = New Class_Page
    Sql = " 1=1 "
    Sql = EqualSql("it_name",news_type,Sql)
    '================================
    'Table 查询的表或是视图
    Ors.Table="uvw_News"
    
    'Field SQL语句SELECT数据库的字段
    Ors.Field="Info_ID,Info_Title,Info_URL,Info_Pic,Update_Date"
    
    'Pkey主键
    Ors.Pkey="Info_ID"
    
    'OrderBy 排序字段
    
    
    Ors.OrderBy="Update_Date DESC"
    
    Ors.PageSize=30 '每页记录数
    
    'Condition 使用的条件，Tt_Title_Sql.....等等
    Ors.Condition=sql
    
    'PostString Tt_Title表单POST过来的值进行传递，该处适用POST和GET
    Ors.PostString = "news_type"
    
    RecCount = Ors.RecCount() '记录总数
    Array_List = Ors.ResultSet() '返回ResultSet
    
    If RecCount>0 Then
    %>      
        <div class="picturelist">
        <h2><%=news_type_name%></h2>
        	<div>
        	<ul>
            <% 
				For i=0 To UBound(Array_List,2)
					Info_ID		= Array_List(0,i)
					Info_Title	= cutstr(Array_List(1,i),18)
					Info_URL	= Array_List(2,i)
					Info_Pic	= Array_List(3,i)
					Update_Date	= Month(Array_List(4,i))&"月"& day(Array_List(4,i))&"日"
					If Info_URL<>"" Then 
						news_detail_url = Info_URL
					Else			
						news_detail_url = "/news/news_view.asp?Info_ID="&Info_ID
					End If 

				%>
            	<li><p><a href="<%=news_detail_url%>"><img src="<%=Info_Pic%>" /></a></p><p class="n"><a href="<%=news_detail_url%>"><%=Info_Title%></a></p></li>
				<% Next %>
                
            </ul>
            </div>
			<% If Ors.PageCount()>1 Then %>
            <div class="pages tc"><% Call Ors.ShowPage4() %></div> 
            <% End If %>
            <% End If %>
            </div>
            <!-- S:PAGES -->
        </div>
    </div>
</div>
<!--E:Content-->

<!--#include Virtual="/include/bottom.asp" -->

</body>
</html>
